' ***^^^***|||***^^^***
' 
'  This file is regenerated until it's edited. Delete the file to force regeneration.

'  NOTE: This denotes the way the file was created and it's possible the 
'        generation type has since changed.
'        Check the generation script for the curent state of the file.

' %%%###%%%bfd3dfef65ebff9e708626b8a4d1d273%%%###%%%
' %%%##NoWS##%%%193248603b4c94f4260df6307b88563c%%%##NoWS##%%%
' ***^^^***|||***^^^***

  
'************************************************************************************
' Copyright © 2003-2006 Kathleen Dollard
'
' This software is provided 'as-is', without any express or implied warranty. In no 
' event will the author be held liable for any damages arising from the use of this
' software.
' 
' You may use this software for any purpose, including commercial applications, 
' and you may redistribute this software as part of application delivery: however, 
' this copyright notice may not be removed and you may not otherwise redistribute 
' this software directly other than providing a link to wwww.gendotnet.com. 
'
' You may alter this software to better server your needs (I'd like to hear about your 
' changes in order to make the software better). If you alter the softwre, you must  
' clearly mark it as altered and must not be misrepresented as the original software.
' nor wholly your original work.
'*************************************************************************************

Option Explicit On
Option Strict On

Imports System
Imports System.Collections.Generic


Public Partial Class DbsTableColumn
	Inherits genDbsTableColumn

		' DbsTableColumn
		' DbsDataStructures
		Public Sub New(DbsDataStructures As DbsDataStructureCollection, _
				ByVal Name As System.String, _
			ByVal OriginalName As System.String, _
			ByVal Caption As System.String, _
			ByVal Ordinal As System.Int32, _
			ByVal AllowNulls As System.Boolean, _
			ByVal SQLType As System.String, _
			ByVal NETType As System.String, _
			ByVal MaxLength As System.Int32, _
			ByVal IsPrimaryKey As System.Boolean, _
			ByVal Precision As System.Int32, _
			ByVal Scale As System.Int32, _
			ByVal IsAutoIncrement As System.Boolean, _
			ByVal UseForDesc As System.Boolean, _
			ByVal [Default] As System.String)
		MyBase.New(DbsDataStructures, Name, OriginalName, Caption, Ordinal, AllowNulls, SQLType, NETType, MaxLength, IsPrimaryKey, Precision, Scale, IsAutoIncrement, UseForDesc, [Default])
	End Sub
End Class


Public Partial Class DbsTableColumnCollection
	Inherits genDbsTableColumnCollection

	Public Sub New()
		MyBase.New()
   End Sub

   Public Function GetTableColumn(ByVal name As String) As DbsTableColumn
      For Each testColumn As DbsTableColumn In Me
         If testColumn.Name = name Then
            Return testColumn
         End If
      Next
      Return Nothing
   End Function

End Class

	
Public Partial Class DbsViewColumnCollection
	Inherits genDbsViewColumnCollection

	Public Sub New()
		MyBase.New()
	End Sub

End Class

	